home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / misc / ftransd_.lha / FTransD_2.1a / ARexx-Scripts / FTCed2.ced < prev    next >
Text File  |  1995-07-15  |  2KB  |  71 lines
  1. /* $VER: FTCed2.ced 1.1 (05.06.95)
  2.  *
  3.  * FTrans-CygnusEd ARexx-Script (c) Copyright 1995 by Rainer Hess
  4.  *
  5.  * ARexx-Script, daß das Wort unter dem Cursor von CygnusEd an FTrans
  6.  * weiterleitet und das Ergebnis der Übersetzung in einem Requester
  7.  * in CygnusEd anzeigt.
  8.  *
  9.  * V1.0 initial release.
  10.  * V1.1 ARexx-Port_name für FTrans V1.7 geändert. LockGUI/UnlockGUI
  11.  *      neu hinzu.
  12.  */
  13.  
  14. options results
  15.  
  16. CR = '0A'X                     /* Carrige Return                    */
  17. BLOCKFILE  = 't:FTransWort'    /* Dateiname für Austausch festlegen */
  18.  
  19. /*
  20.  * rexxcedsupport.library einbinden.
  21.  */
  22.  
  23. if ~show('l',"rexxcedsupport.library") then do
  24.    call addlib 'rexxcedsupport.library',0,-30,0
  25.    if (result = 0) then do
  26.      okay1 "Die rexxcedsupport.library kann nicht eingebunden werden!" CR || "Evtl. ist die rexxcedsupport.library nicht installiert..."
  27.      exit
  28.    end
  29. end
  30.  
  31. /* --- ob FTrans aktiv ---*/
  32.  
  33. if ~show( 'p', 'FTRANS.1' ) then do
  34.   okay1 "Oops! FTrans ist nicht aktiv." CR || "Bitte FTrans aktivieren..."
  35.   exit
  36. end
  37.  
  38. /* --- CygnusEd --- */
  39.  
  40. on = 0                         /* Merker vorbesetzen                     */
  41.  
  42. address 'rexx_ced'             /* CygnusEd Arexx-Port suchen             */
  43.  
  44. cedwort = csgetword()          /* Wort unter Cursor von CygnusEd abholen */
  45.  
  46. /* --- FTRANS --- */
  47.  
  48. address 'FTRANS.1'             /* FTrans Arexx-Port suchen               */
  49.  
  50. LOCKGUI                        /* GUI von FTrans sperren                 */
  51.  
  52. WORTARG cedwort
  53. uebersetzung = result
  54.  
  55. UnlockGUI                      /* GUI von FTrans wieder entsperren       */
  56.  
  57. /* --- CygnusEd --- */
  58.  
  59. address 'rexx_ced'             /* CygnusEd Arexx-Port suchen */
  60.  
  61. ausgabe = 'Das englische Wort : ' || cedwort CR || 'bedeutet in deutsch: ' || uebersetzung
  62.  
  63. /* War die Übersetzung positiv oder negativ? */
  64.  
  65. if((right(uebersetzung, 1) == '}' | left(uebersetzung, 1) == '{')) then
  66.   ausgabe = 'Das Wort ' || uebersetzung || ' kommt im' CR || 'aktuellen Wörterbuch nicht vor!'
  67.  
  68. okay1 ausgabe    /* Nun rufen wir das Requester in CygnusEd auf */
  69.  
  70. exit 0
  71.